x_1 = 1 (slider from -5 to 5, step 1)
z_1 = 4 (slider from -5 to 6, step 1)
y_1 = 2 (slider from -5 to 6, step 1)
Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, 6)
w_1 = Vector((0, 0, 0), (0, 0, 7))
Kx = Sequence(Text[n, (n, 0)], n, 1, 6)
Ky = Sequence(Text[n, (0, n)], n, 1, 6)
A = (0, 0, 0)
v_1 = Vector((0, -2, 0), (0, 7, 0))
u_1 = Vector((-2, 0, 0), (7, 0, 0))
B = (4, 1, 0)
u = Vector(A, B)
C = (0, 4, 0)
v = Vector(A, C)
D: (x_1, y_1, z_1)
w = Vector(A, D)
z: u + v
F: (x(z), y(z), z(z))
a: u + w
G: (x(a), y(a), z(a))
b: v + w
H: (x(b), y(b), z(b))
poly1, a_1, b_1, f, c = Polygon(A, B, F, C)
d: u + v + w
E: (x(d), y(d), z(d))
poly2, g, e, h, d_1 = Polygon(G, E, H, D)
poly3, a_2, b_2, g_1, d_2 = Polygon(A, B, G, D)
poly4, f_1, c_1, h_1, e_1 = Polygon(F, C, H, E)
poly5, b_3, f_2, e_2, g_2 = Polygon(B, F, E, G)
poly6, a_3, c_2, h_2, d_3 = Polygon(A, C, H, D)
Volumen: (u ⊗ v) * w